home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / nutritio.sit / Nutrition v1.1 / card_4827.txt < prev    next >
Text File  |  1988-02-13  |  3KB  |  161 lines
  1. -- card: 4827 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3803
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseDown
  8.   play "boing"
  9. end mouseDown
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 01
  15. -- high flags: 0004
  16. -- rect: left=131 top=30 right=263 bottom=382
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 6
  21. -- text size: 18
  22. -- style flags: 0
  23. -- line height: 24
  24. -- part name: 
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 8003
  30. -- rect: left=210 top=106 right=128 bottom=310
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Breakfast
  39. ----- HyperTalk script -----
  40. on mouseDown
  41.  
  42. end mouseDown
  43.  
  44.  
  45.  
  46. on mouseUp
  47.   global breakfastList
  48.   visual effect iris open
  49.   if field 1 of recent card is not empty then
  50.     answer "Breakfast already ordered today." with "OK"
  51.     pop card
  52.     choose button tool
  53.     get loc of bkgnd button 7
  54.     click at it
  55.     answer "Reset card to Re-Order Meals" with "OK"
  56.     choose browse tool
  57.     exit mouseUp
  58.   end if
  59.   go card id 5849
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=209 top=143 right=165 bottom=309
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Lunch
  76. ----- HyperTalk script -----
  77. on mouseDown
  78.  
  79. end mouseDown
  80.  
  81. on mouseUp
  82.   answer "           Not implemented in this version." with "OK"
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 4 (button)
  88. -- low flags: 00
  89. -- high flags: 8003
  90. -- rect: left=208 top=185 right=207 bottom=308
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Dinner
  99. ----- HyperTalk script -----
  100. on mouseDown
  101.  
  102. end mouseDown
  103.  
  104. on mouseUp
  105.   Answer "Full version required for this menu." with "I Guess"
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (button)
  111. -- low flags: 00
  112. -- high flags: 8003
  113. -- rect: left=209 top=222 right=244 bottom=309
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Snacks
  122. ----- HyperTalk script -----
  123. on mouseDown
  124.  
  125. end mouseDown
  126.  
  127. on mouseUp
  128.   Answer "Full version required, see Order Info." with "Oh, ALRIGHT!"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 6 (button)
  134. -- low flags: 00
  135. -- high flags: 0000
  136. -- rect: left=484 top=319 right=341 bottom=510
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 1012 / 1012
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Return
  145. ----- HyperTalk script -----
  146. on mouseDown
  147.   --trap for mouseDown
  148. end mouseDown
  149.  
  150.  
  151.  
  152. on mouseUp
  153.   pop card
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part contents for card part 1
  159. ----- text -----
  160.  
  161. Choose a menu: